home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / color profile (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  19.2 KB  |  427 lines
  1. 5 ifm9thensys64738
  2. 10 rem your color profile - schilling - mod 1
  3. 20 s=54272:v=53281:vb=v-1:forx=0to24:pokes+x,0:next:gosub3940:pokev,15:pokevb,0
  4. 30 c$(0)="[152]":c$(1)="":c$(2)="":c$(3)="":c$(4)="[158]":c$(5)="[156]"
  5. 40 c$(6)="[149]":c$(7)="[144]":c$(8)="[154]":r$="":f$="[146]":x$=" ":xx$="  ":x4$="    "
  6. 50 print"[147]"x$r$"       your luescher color test       ":fory=1to2:forx=0to7
  7. 60 printx$r$""x$c$(x)xx$tab(36)xx$""x$:next:next:printx4$"[145]";:fory=1to4
  8. 70 forx=0to7:printr$c$(x)x$;:next:next:print:printx$;:fory=1to19:printr$""xx$;
  9. 80 next:print""tab(6)"[151]please type your first name,
  10. 90 [153][163]13)"then press <return>poke":rt[178]1:[141]550
  11. 100 [153][163]5)"";:[151]198,0:[151]vb,15
  12. 110 k$[178]"":[151] 198,0
  13. 120 [153]" cmdwait";: [129]t[178]1[164]50:[130]:[153]" cmd";
  14. 130 [161]a$:[139] a$[178]""[167] 120
  15. 140 [139] a$[178][199](13)[167]n$[178]k$:[137]200
  16. 150 [139] a$[178][199](20)[175][195](k$)[167] [153]"cmd cmd";:k$[178][200](k$,[195](k$)[171]1):[137]120
  17. 160 [139] [195](k$)[177]10[167] 120
  18. 170 [139] a$[179]"a"[176]a$[177]"z"[167]120
  19. 180 [153]a$;:k$[178]k$[170]a$
  20. 190 [137]120
  21. 200 [153]r$"load          luescher color test           "
  22. 210 [153]"pokegrey blue grn  red  yell viol brwn blck
  23. 220 fory=1to4:forx=0to7:printr$c$(x)x4$f$x$;:next:next
  24. 230 print"[151] please adjust your color monitor to
  25. 240 [153]" give the best color representation,
  26. 250 print" then press <return>[151] to continue":gosub550:m$=""
  27. 260 print"":fory=1to118:printx$;:next:print"";:cr=0
  28. 265 print"[152]0123[158]4[156]5[149]6[144]7"
  29. 270 gosub470:nu=1:gosub550:a1=val(m$):print:gosub480:gosub550:b1=val(m$):print
  30. 280 gosub510:gosub550:d1=val(m$):print:gosub540:gosub550:c1=val(m$):print
  31. 290 ifa1>7orb1>7orc1>7ord1>7ora1=b1orc1=d1thengosub3870:goto50
  32. 300 print"[147]":print"          well done, "n$","
  33. 310 print"but we have more work to do.":print"after all, ";
  34. 320 print"dr. luescher has been working on his color tests since 1947.
  35. 330 [153]"so, let's do it once again, but in a     different way.
  36. 340 print"have a cup of coffee, clear your mind"
  37. 350 print" and press <return>":nu=.:cr=1:gosub550:m$=""
  38. 360 pokev,0:pokevb,0:print"[147]"r$"[155]   luescher color test - second round  "
  39. 370 print:forx=0to6:printr$c$(x)xx$x;:next:print:printtab(35)"[145]"c$(0)"[207][183][183]7
  40. 380 [129]x[178]0[164]6:[153]r$c$(x)x4$f$x$;:[130]:[153]:[153][163]35)"on"c$(0)"fn"[163]38)"+
  41. 390 forx=0to6:printr$c$(x)x4$f$x$;:next:print:printtab(35)"[145]"c$(0)"[165]"tab(38)"[170]
  42. 400 [129]x[178]0[164]6:[153]r$c$(x)x4$f$x$;:[130]:[153]:[153][163]35)"on"c$(0)"(NULL)andandsqr
  43. 410 print:print"[155]"tab(160):gosub470:cr=.:nu=1:gosub550:a2=val(m$):j=a2:gosub590
  44. 420 printtab(160):gosub490:gosub550:b2=val(m$):j=b2:gosub590
  45. 430 printtab(160):gosub530:gosub550:d2=val(m$):j=d2:gosub590
  46. 440 printtab(160):gosub540:gosub550:c2=val(m$):j=c2
  47. 450 ifa2>7orb2>7orc2>7ord2>7ora2=b2orc2=d2thengosub3870:goto360
  48. 460 goto610
  49. 470 print"select the color you like best,":print"  and enter its number:";:return
  50. 480 print"now,
  51. 490 [153]"select the color you like second best,
  52. 500 print"  and enter its number:";:return
  53. 510 print"now, of the remaining colors, choose
  54. 520 [153]"the color you like least of all.
  55. 530 print"  number of the "r$" worst "f$" color:";:return
  56. 540 print"and the number of the color":print"  almost as bad:";:return
  57. 550 pokes+24,15:pokes+1,110:pokes+5,9:pokes+6,9:pokes+4,17:pokes+4,16:poke198,0
  58. 560 ifrt=1thenrt=0:return
  59. 570 getm$:ifm$=""then570
  60. 572 if(cr)and(m$=chr$(13))then580
  61. 574 if(nu)and((m$>="0")and(m$<="7"))then580
  62. 576 if(yn)and((m$="y")or(m$="n"))then580
  63. 578 goto570
  64. 580 printm$:poke198,0:return
  65. 590 print"":fory=1to4:printspc(5*j)x4$:next:print
  66. 600 printtab(160):fory=1to78:printxx$;:next:print"":return
  67. 610 pokev,15:pokevb,12:printr$"[147]   your luescher color sequences are:   "
  68. 620 print"[151]first round: "r$c$(a1)xx$a1;c$(b1)xx$b1;c$(c1)xx$c1;c$(d1)xx$d1
  69. 630 print"[151]second round:"r$c$(a2)xx$a2;c$(b2)xx$b2;c$(c2)xx$c2;c$(d2)xx$d2
  70. 640 print:print"[151]first, a "r$"preliminary evaluation:":print:printn$"  you are
  71. 650 [139]a2[178]d2[176]a2[178]c2[176]b2[178]d2[176]b2[178]c2[167][153]"confused.":[141]3870:[137]360
  72. 660 [139]a2[178]a1[175]b2[178]b1[175]c2[178]c1[175]d2[178]d1[167]r[178]1:[137]730
  73. 670 [139]a2[178]a1[176]a2[178]b1[176]b2[178]a1[176]b2[178]b1[167]690
  74. 680 [139]a2[179][177]a1[175]b2[179][177]b1[175]a2[179][177]b1[175]b2[179][177]a1[167]710
  75. 690 [139]d2[178]d1[176]d2[178]c1[176]c2[178]c1[176]c2[178]d1[167]760
  76. 700 [139]d2[179][177]d1[175]d2[179][177]c1[167]780
  77. 710 [139]d2[178]d1[176]d2[178]c1[176]c2[178]c1[176]c2[178]d1[167]800
  78. 720 [139]d2[179][177]d1[175]c2[179][177]c1[167]rc[178]1:[137]740
  79. 730 [153]" extremely consistent in your choice of colors.";:[137]750
  80. 740 [153]"  extremely inconsistent in your choice of colors.";
  81. 750 [153]" remarkable!":[137]820
  82. 760 [153]"     quite consistent in your choice of  favorite colors,
  83. 770 print" and in your dislike of certain colors.":goto820
  84. 780 print"  consistent in your choice of favorite colors, but inconsistent
  85. 790 [137]810
  86. 800 [153]"inconsistent in your choice of favorite colors, but consistent
  87. 810 print"  in your dislike of certain colors.
  88. 820 [139]d2[178]d1[175]c2[178]c1[167]rl[178]1
  89. 830 [139]p$[178]"p"[167]860
  90. 840 [153]"and now, the "r$"results"f$" of your test!
  91. 850 printspc(14)"press <return>[151] when ready":nu=.:cr=1:gosub550
  92. 860 gosub3890
  93. 870 print"[147]"r$"       your psychological profile:      "
  94. 880 zz=0:a=a2:b=b2:c=c2:d=d2
  95. 890 printr$"the primary evaluation":print"shows that you:
  96. 900 [145]a [137]920,930,940,950,960,970,980
  97. 910 [153]r$" prefer to remain uncommitted,":[137]990
  98. 920 [153]r$" prefer a state of harmony,":[137]1070
  99. 930 [153]r$" like to impress people,":[137]1160
  100. 940 [153]r$" delight in action,":[137]1250
  101. 950 [153]r$" are full of expectations,":[137]1360
  102. 960 [153]r$" are sentimental and romantic,":[137]1480
  103. 970 [153]r$" like physical ease,":[137]1610
  104. 980 [153]r$" are a demanding person,":[137]1730
  105. 990 [139]b[178]1[167][153]"long for a tranquil environment":h[178].6:n[178]1
  106. 1000 [139]b[178]2[167][153]"feel exhausted by conflict":h[178].4:n[178]1
  107. 1010 [139]b[178]3[167][153]"wish to impress others":h[178].5:n[178]1
  108. 1020 [139]b[178]4[167][153]"try to avoid conflict":h[178].3:n[178]2
  109. 1030 [139]b[178]5[167][153]"are cautious in pursuit of tenderness":h[178].2:n[178]1
  110. 1040 [139]b[178]6[167][153]"desire a life of security":h[178].6:n[178]2
  111. 1050 [139]b[178]7[167][153]"feel betrayed in your hopes":h[178].2:n[178]3
  112. 1060 [137]1820
  113. 1070 [139]b[178]1[167][153]"long for a tranquil environment":h[178]1.2:n[178]1
  114. 1080 [139]b[178]2[167][153]"have a fine eye for details,
  115. 1090 ifb=2thenprint"long for a tranquil environment":h=3.8
  116. 1100 ifb=3thenprint"seek affectionate relationships":h=3.6
  117. 1110 ifb=4thenprint"seek affectionate relationships":h=1.4
  118. 1120 ifb=5thenprint"long for tenderness,:h=4.4
  119. 1130 [139]b[178]6[167][153]"desire a life of security,":h[178]1.1:n[178]1
  120. 1140 [139]b[178]7[167][153]"desire rest and relaxation":h[178]0.5:n[178]2
  121. 1150 [137]1820
  122. 1160 [139]b[178]0[167][153]"feel a lack of appreciation
  123. 1170 ifb=0thenprint"and want to establish yourself":h=.7:n=1
  124. 1180 ifb=1thenprint"want to be recognized and admired":h=3.5
  125. 1190 ifb=3thenprint"you seek success with great initiative":h=5.2
  126. 1200 ifb=4thenprint"want to be popular and admired":h=2.3
  127. 1210 ifb=5thenprint"want to be successful and recognized":h=4.2
  128. 1220 ifb=6thenprint"are proud and need to be recognized":h=1.8:n=1
  129. 1230 ifb=7thenprint"want to prove yourself":h=.5:n=2
  130. 1240 goto1820
  131. 1250 ifb=0thenprint"want to sweep away things in your way":h=.9
  132. 1260 ifb=1thenprint"strive for activity and experience":h=4.4:n=1
  133. 1270 ifb=2thenprint"pursue your objectives with intensity,
  134. 1280 [139]b[178]2[167][153]"want to achieve recognition and standing":h[178]6.6
  135. 1290 [139]b[178]4[167][153]"are of an enthusiastic nature
  136. 1300 ifb=4thenprint"and seek a life full of experience":h=11.0
  137. 1310 ifb=5thenprint"are of an enthusiastic nature
  138. 1320 [139]b[178]5[167][153]"and seek an exciting life":h[178]3.5
  139. 1330 [139]b[178]6[167][153]"like to take things easy":h[178]2.1:n[178]1
  140. 1340 [139]b[178]7[167][153]"feel to have missed something in life":h[178].3:n[178]2
  141. 1350 [137]1820
  142. 1360 [139]b[178]0[167][153]"desire a way of escape":h[178].5:n[178]2
  143. 1370 [139]b[178]1[167][153]"are always ready to help others":h[178]1.2:n[178]2
  144. 1380 [139]b[178]2[167][153]"are alert and keenly observant, and
  145. 1390 ifb=2thenprint"want to achieve recognition":h=2.2:n=1
  146. 1400 ifb=3thenprint"desire a wide sphere of influence
  147. 1410 [139]b[178]3[167][153]"and are somewhat restless":h[178]6.7:n[178]1
  148. 1420 [139]b[178]5[167][153]"long for excitement and
  149. 1430 ifb=5thenprint"interesting things to happen":h=1.2:n=1
  150. 1440 ifb=6thenprint"desire physical ease
  151. 1450 [139]b[178]6[167][153]"and problem-free security":h[178].6:n[178]2
  152. 1460 [139]b[178]7[167][153]"are headstrong and try to escape from   problems":h[178].3:n[178]3
  153. 1470 [137]1820
  154. 1480 [139]b[178]0[167][153]"long for sympathetic understanding":h[178].3:n[178]1
  155. 1490 [139]b[178]1[167][153]"long for idealized harmony, and"
  156. 1500 [139]b[178]1[167][153]"need tenderness and affection":h[178]5.1
  157. 1510 [139]b[178]2[167][153]"want to make favorable impressions
  158. 1520 ifb=2thenprint"and obtain special recognition":h=4.8
  159. 1530 ifb=3thenprint"are preoccupied with things of an excit-ing ";
  160. 1540 ifb=3thenprint"and erotically stimulating nature":h=3.3
  161. 1550 ifb=4thenprint"want exciting things to happen, but are
  162. 1560 [139]b[178]4[167][153]"given to fantasy or day-dreaming":h[178]1.8:n[178]1
  163. 1570 [139]b[178]6[167][153]"desire an atmosphere of sensuous luxury":h[178].6:n[178]1
  164. 1580 [139]b[178]7[167][153]"have an imperative need for a bond
  165. 1590 ifb=7thenprint"which is sensually fulfilling":h=.4:n=2
  166. 1600 goto1820
  167. 1610 ifb=0thenprint"are in need of freedom from conflict":h=.6:n=2
  168. 1620 ifb=1thenprint"desire physical ease and
  169. 1630 [139]b[178]1[167][153]"the absence of conflict":h[178].7:n[178]1
  170. 1640 [139]b[178]2[167][153]"keep yourself under strict control and
  171. 1650 ifb=2thenprint"desire an easier and safer situation":h=1.2:n=1
  172. 1660 ifb=3thenprint"have a powerful drive
  173. 1670 [139]b[178]3[167][153]"towards sensuousness":h[178]1.1:n[178]1
  174. 1680 [139]b[178]4[167][153]"desire a life of sensuous ease,
  175. 1690 ifb=4thenprint"free from any problems":h=.5:n=2
  176. 1700 ifb=5thenprint"desire luxury and sensuous comfort":h=.4:n=1
  177. 1710 ifb=7thenprint"are idealistic, but disappointed":h=.2:n=3
  178. 1720 goto1820
  179. 1730 ifb=0thenprint"feel the situation may be hopeless":h=.3:n=3
  180. 1740 ifb=1thenprint"resist disagreeable things and
  181. 1750 [139]b[178]1[167][153]"want to be left in peace":h[178].4:n[178]2
  182. 1760 [139]b[178]2[167][153]"oppose restriction or opposition":h[178].3:n[178]2
  183. 1770 [139]b[178]3[167][153]"are impulsive and impassioned":h[178].2:n[178]2
  184. 1780 [139]b[178]4[167][153]"try to escape from your problems":h[178].3:n[178]3
  185. 1790 [139]b[178]5[167][153]"refuse to make concessions
  186. 1800 ifb=5thenprint" or compromises":h=.2:n=2
  187. 1810 ifb=6thenprint"set idealistic, but illusory goals":h=.1:n=3
  188. 1820 ifzz=1andrl=1then2900
  189. 1830 print" yet you
  190. 1840 [145]c [137]1970,2070,2210,2330,2460,2590,2720
  191. 1850 [139]d[178]1[167][153]"refuse to relax and you experience
  192. 1860 ifd=1thenprint" restless dissatisfaction.":hh=.9
  193. 1870 ifd=2thenprint"feel unresolved pressure.":hh=.4
  194. 1880 ifd=3thenprint"feel overextended and irritable.":hh=.5
  195. 1890 ifd=4thenprint"have unfulfilled expectations.":hh=1.7
  196. 1900 ifd=5thenprint"maintain an attitude of critical
  197. 1910 [139]d[178]5[167][153]"appraisal and demand complete sincerity.":hh[178]1.7
  198. 1920 [139]d[178]6[167][153]"feel unsatisfied and want to be loved.":hh[178]3.8
  199. 1930 [139]d[178]7[167][153]"  are anxious to experience life in all its aspects";
  200. 1940 [139]d[178]7[167][153]" and live it to the full.      you resent restrictions";
  201. 1950 [139]d[178]7[167][153]" and insist on being free.":hh[178]15.3
  202. 1960 [137]2840
  203. 1970 [139]d[178]0[167][153]"display impatience and restlessness.":hh[178]1.5
  204. 1980 [139]d[178]2[167][153]"experience pressure from stress.":hh[178].2
  205. 1990 [139]d[178]3[167][153]"experience unsatisfactory relationships.":hh[178].2
  206. 2000 [139]d[178]4[167][153]"experience stress from disappointments.":hh[178].3
  207. 2010 [139]d[178]5[167][153]"experience some stress
  208. 2020 ifd=5thenprint" from lack of understanding.":hh=2.0
  209. 2030 ifd=6thenprint"feel a certain lack of appreciation.":hh=.6
  210. 2040 ifd=7thenprint"experience emotional dissatisfaction
  211. 2050 [139]d[178]7[167][153]" and have a desire for independence.":hh[178]4.9
  212. 2060 [137]2840
  213. 2070 [139]d[178]0[167][153]"are experiencing some irritation, but    continue";
  214. 2080 [139]d[178]0[167][153]" to pursue your objectives.":hh[178].7
  215. 2090 [139]d[178]1[167][153]"experience some degree of stress
  216. 2100 ifd=1thenprint" and dissatisfaction.":hh=.3
  217. 2110 ifd=3thenprint"experience some stress
  218. 2120 [139]d[178]3[167][153]" and also dissatisfaction.":hh[178].2
  219. 2130 [139]d[178]4[167][153]"are experiencing some disappointment and";
  220. 2140 [139]d[178]4[167][153]"are looking for an escape route.":hh[178].4
  221. 2150 [139]d[178]5[167][153]"are searching for appreciation.":hh[178]1.0
  222. 2160 [139]d[178]6[167][153]"are looking for allies and desire
  223. 2170 ifd=6thenprint" the esteem of others.":hh=.7
  224. 2180 ifd=7thenprint"feel restricted in your freedom";
  225. 2190 ifd=7thenprint" and seek independence.":hh=1.7
  226. 2200 goto2840
  227. 2210 ifd=0thenprint"are experiencing irritation, and resist
  228. 2220 [139]d[178]0[167][153]"additional stimulation.":hh[178].8
  229. 2230 [139]d[178]1[167][153]"experience some dissatisfaction.":hh[178].2
  230. 2240 [139]d[178]2[167][153]"experience stress and dissatisfaction.":hh[178].1
  231. 2250 [139]d[178]4[167][153]"experience some stress,
  232. 2260 ifd=4thenprint" but are eager to succeed.":hh=1.5
  233. 2270 ifd=5thenprint"are searching for security
  234. 2280 [139]d[178]5[167][153]"and understanding.":hh[178]0.8
  235. 2290 [139]d[178]6[167][153]"are possibly experiencing some sexual   stress";
  236. 2300 [139]d[178]6[167][153]" from sensual self-restraint.":hh[178].7
  237. 2310 [139]d[178]7[167][153]"feel angry and a frustrated desire for  independence.":hh[178].9
  238. 2320 [137] 2840
  239. 2330 [139]d[178]0[167][153]"feel that life should yield more";
  240. 2340 [139]d[178]0[167][153]" and are tensely expectant.":hh[178]2.1
  241. 2350 [139]d[178]1[167][153]"experience some emotional disappointment":hh[178].2
  242. 2360 [139]d[178]2[167][153]"    experience some stress and dissatis-faction.":hh[178].1
  243. 2370 [139]d[178]3[167][153]"experience some stress, but";
  244. 2380 [139]d[178]3[167][153]" are eager to make a good impression.":hh[178]0.9
  245. 2390 [139]d[178]5[167][153]"have experienced disappointment and are";
  246. 2400 [139]d[178]5[167][153]" watching for sincere motives.":hh[178]1.2
  247. 2410 [139]d[178]6[167][153]"are experiencing some anxiety, but show";
  248. 2420 [139]d[178]6[167][153]" unconcerned self-reliance.":hh[178]1.1
  249. 2430 [139]d[178]7[167][153]"have some unfulfilled hopes, and";
  250. 2440 [139]d[178]7[167][153]" insist on freedom of action.":hh[178]3.4
  251. 2450 [137] 2840
  252. 2460 [139]d[178]0[167][153]"feel some impatience and feel";
  253. 2470 [139]d[178]0[167][153]" that life has much more to offer.":hh[178]1.7
  254. 2480 [139]d[178]1[167][153]"find an existing relationship unsatis-  factory,";
  255. 2490 [139]d[178]1[167][153]" but refuse to give up.":hh[178].9
  256. 2500 [139]d[178]2[167][153]"feel a certain lack of appreciation.":hh[178].5
  257. 2510 [139]d[178]3[167][153]"experience some stress, but want to
  258. 2520 ifd=3thenprint"experience everything.":hh=.3
  259. 2530 ifd=4thenprint"have experienced disappointment and
  260. 2540 [139]d[178]4[167][153]"sometimes feel misunderstood.":hh[178].9
  261. 2550 [139]d[178]6[167][153]"have difficulties maintaining stable
  262. 2560 ifd=6thenprint"relationships, but show self-restraint.":hh=1.0
  263. 2570 ifd=7thenprint"demand independence and freedom.":hh=3.6
  264. 2580 goto 2840
  265. 2590 ifd=0thenprint"feel some stress from sexual desires,";
  266. 2600 ifd=0thenprint"but exercise great self-restraint.":hh=5.8
  267. 2610 ifd=1thenprint"experience some emotional discontent.":hh=.5
  268. 2620 ifd=2thenprint"show excessive self-restraint.":hh=.2
  269. 2630 ifd=3thenprint"experience some stress from sexual
  270. 2640 [139]d[178]3[167][153]"desires because of self-restraint.":hh[178].6
  271. 2650 [139]d[178]4[167][153]"experience some stress, but show
  272. 2660 ifd=4thenprint"unconcerned self-reliance.":hh=1.3
  273. 2670 ifd=5thenprint"have trouble maintaining relationships,
  274. 2680 [139]d[178]5[167][153]"having a desire for erotic harmony.":hh[178]1.5
  275. 2690 [139]d[178]7[167][153]"feel stress from restrictions, and want
  276. 2700 ifd=7thenprint"freedom to follow your convictions.":hh=5.3
  277. 2710 goto 2840
  278. 2720 ifd=0thenprint"believe that life has more to offer,";
  279. 2730 ifd=0thenprint" and pursue your objectives fiercely.":hh=10.5
  280. 2740 ifd=1thenprint"are impatient for independence.":hh=1.7
  281. 2750 ifd=2thenprint"seek independence and freedom.":hh=.8
  282. 2760 ifd=3thenprint"experience some stress in your desire
  283. 2770 [139]d[178]3[167][153]"for independence.":hh[178].7
  284. 2780 [139]d[178]4[167][153]"have experienced some disappointment,
  285. 2790 ifd=4thenprint"but insist on freedom of action.":hh=2.5
  286. 2800 ifd=5thenprint"seek an idealized situation of mutual
  287. 2810 [139]d[178]5[167][153]"understanding and accord.":hh[178]3.0
  288. 2820 [139]d[178]6[167][153]"resist pressure from others, and insist
  289. 2830 ifd=6thenprint"on independence as an individual.":hh=3.5
  290. 2840 ifzz=1then2900
  291. 2850 h1=h:h2=hh:n1=n:ifr=1then2900
  292. 2860 print:printr$"a secondary evaluation"f$;
  293. 2870 ifa2=a1thenprint" confirms that you":goto2890
  294. 2880 print" shows also that  you
  295. 2890 zz[178]1:a[178]a1:b[178]b1:c[178]c1:d[178]d1:n[178]0:[137]900
  296. 2900 [153]:[139]p$[178]"p"[167]2920
  297. 2910 [153][166]13)"press <return>poke to continue":[141]550:[153]"load"
  298. 2920 [153]"your favorite color pair was:
  299. 2930 print" numbers"a2;r$c$(a2)xx$f$c$(8)p$(a2);
  300. 2940 print"    and"b2;r$c$(b2)xx$f$c$(8)p$(b2)
  301. 2950 print:print"[144]you disliked most the color pair:
  302. 2960 [153]" numbers"c2;r$c$(c2)xx$f$c$(8)p$(c2);
  303. 2970 [153]"stop    and"d2;r$c$(d2)xx$f$c$(8)p$(d2):[153]
  304. 2980 [153]"the first pair indicates your desired   objectives. it was chosen by
  305. 2990 print10*h1"persons";:ifh1=.1thenprint"[157]";
  306. 3000 print" out of one thousand.
  307. 3010 [153]:[153]"stopthe second pair shows possible problems or stress.
  308. 3020 print" this color pair was disliked by
  309. 3030 [153]10[172]h2"persons";:[139]h2[178].1[167][153]"cmd";
  310. 3040 [153]" out of one thousand.
  311. 3050 print:ifh1<1andh2<1thenprint"[151]you are quite a unique person!":print
  312. 3060 ifp$="p"then3080
  313. 3070 printspc(13)"[151]press <return>[151] to continue":gosub550:pokevb,15
  314. 3080 print"[147]"r$"  in psychosomatic terms,"
  315. 3090 print"the structural meaning of your chosen   favorite color pair";
  316. 3100 print" indicates:":ifn1=0thenprint"   no emotional conflict.
  317. 3110 [139]n1[178]1[167][153]"   at times, possibly some very minimal emotional conflict.
  318. 3120 ifn1=2thenprint"   some emotional conflict may exist       at times.
  319. 3130 [139]n1[178]3[167][153]"   emotional conflict may exist.
  320. 3140 print:printr$"in psychological jargon:":print:ifa1>5anda2>5then3580
  321. 3150 ifa1>2anda2>2then3370
  322. 3160 m$(0,1)="a period of recuperation, or an interval of tranquility.
  323. 3170 m$(0,2)[178]"separative self-indulgence, or defensive superiority.
  324. 3180 m$(0,3)="impulsiveness, or ill-considered action.
  325. 3190 m$(0,4)[178]"indecision, or lack of resolution.
  326. 3200 m$(0,5)="cautious sensitivity, or only tentative identification.
  327. 3210 m$(0,6)[178]"exhaustion, or depletion.
  328. 3220 m$(0,7)="separative isolation, or a total        non-involvement.
  329. 3230 m$(1,0)[178]"an interval of tranquility, or a period of recuperation.
  330. 3240 m$(1,2)="discriminating control; self-contained  orderliness.
  331. 3250 m$(1,3)[178]"co-operative enterprise, or emotional   fulfillment.
  332. 3260 m$(1,4)="emotional dependency, or group-oriented helpfulness.
  333. 3270 m$(1,5)[178]"esthetic susceptibility, or erotic      sensitivity.
  334. 3280 m$(1,6)="sensual ease, or indolent attachment.
  335. 3290 m$(1,7)[178]"absolute peace.
  336. 3300 m$(2,0)="separative self-insistence, or defensive superiority.
  337. 3310 m$(2,1)[178]"discriminating control with self-       contained orderliness.
  338. 3320 m$(2,3)="puposeful activity, or controlled       initiative.
  339. 3330 m$(2,4)[178]"demand for appreciation, or ambition.
  340. 3340 m$(2,5)="flexible self-insistence; irresponsible charm.
  341. 3350 m$(2,6)[178]"demand for physical relief;  insistence on comfort.
  342. 3360 m$(2,7)="obstinate exclusion, or prejudiced self-righteousness.
  343. 3370 m$(3,0)[178]"impulsiveness, or ill-considered action
  344. 3380 m$(3,1)="cooperative enterprise,    or emotional fulfillment.
  345. 3390 m$(3,2)[178]"puposeful activity; strongly controlled initiative.
  346. 3400 m$(3,4)="expansive activity, or the development   of undiscovered fields.
  347. 3410 m$(3,5)[178]"susceptibility to stimulus,  and good   responsiveness.
  348. 3420 m$(3,6)="sensual gratification; self-indulgence.
  349. 3430 m$(3,7)[178]"exaggerated desire, or dramatization.
  350. 3440 m$(4,0)="indecision, or lack of resolution.
  351. 3450 m$(4,1)[178]"emotional dependency, or group-oriented helpfulness.
  352. 3460 m$(4,2)="demand for appreciation, or ambition.
  353. 3470 m$(4,3)[178]"expansive activity, or the development   of new fields.
  354. 3480 m$(4,5)="the lure of fantasy, and a thirst for   adventure.
  355. 3490 m$(4,6)[178]"total security, or untrammeled ease.
  356. 3500 m$(4,7)="sudden crisis, or headstrong decisions.
  357. 3510 m$(5,0)[178]"cautious sensitivity, or only tentative identification.
  358. 3520 m$(5,1)="esthetic susceptibility,  or erotic     sensitivity.
  359. 3530 m$(5,2)[178]"flexibible self-insistence, or irrespon-sible charm.
  360. 3540 m$(5,3)="susceptible to stimulus; responsiveness
  361. 3550 m$(5,4)[178]"the lure of fantasy, or over-imaginative thirst for adventure.
  362. 3560 m$(5,6)="sensuousness, or voluptuousness.
  363. 3570 m$(5,7)[178]"need for identification,  or compulsive blending.
  364. 3580 m$(6,0)="exhaustion, or depletion.
  365. 3590 m$(6,1)[178]"sensual ease, or indolent attachment.
  366. 3600 m$(6,2)="demand for physical relief,  insistence on comfort.
  367. 3610 m$(6,3)[178]"sensual gratification; self-indulgence.
  368. 3620 m$(6,4)="total security, or untrammeled ease.
  369. 3630 m$(6,5)[178]"sensuousness, or voluptuousness.
  370. 3640 m$(6,7)="self-disparagement.
  371. 3650 m$(7,0)[178]"separate isolation, or non-involvement.
  372. 3660 m$(7,1)="absolute peace.
  373. 3670 m$(7,2)[178]"obstinate exclusion, or prejudiced self-righteousness.
  374. 3680 m$(7,3)="exaggarated desire, or dramatization.
  375. 3690 m$(7,4)[178]"sudden crisis, or headstrong decisions.
  376. 3700 m$(7,5)="need for identification,  or compulsive blending.
  377. 3710 m$(7,6)[178]"self-disparagement.
  378. 3720 printr$"primarily,":printm$(a2,b2):ifa1=a2andb1=b2then3740
  379. 3730 print"and "r$"secondarily,":printm$(a1,b1)
  380. 3740 print:printr$"but, "n$:print"don't take all this too seriously!
  381. 3750 [139]rc[178]1[167][153]" especially in view of your inconsistentcolor choices...
  382. 3760 print:printspc(13)"best wishes,":printspc(13)"gerhard f. schilling, ph.d.
  383. 3770 [139]p$[178]"p"[167]p$[178]"":[152]4:[160]4:[137]4120
  384. 3780 [153]"do you want a printout? (y/npoke)":yn[178]1:[141]550:[139]m$[179][177]"y"[175]m$[179][177]"(NULL)"[167]4120
  385. 3790 [159]15,4,15:[160]15:[139]st[178].[167]3810
  386. 3800 [153]"loadprinter not online! switch it on !stop":[137]3780
  387. 3810 [153][166]10)"loadprinting":p$[178]"p":[159]4,4:[157]4
  388. 3820 [153][166]5)"your luescher color test, "n$:[153]
  389. 3830 [153]"your color sequences were:":p$(0)[178]"grey":p$(1)[178]"blue":p$(2)[178]"green
  390. 3840 p$(3)="red":p$(4)="yellow":p$(5)="violet":p$(6)="brown":p$(7)="black
  391. 3850 [153]:[153]"first round: "a1;p$(a1)x$b1;p$(b1)x$c1;p$(c1)x$d1;p$(d1)
  392. 3860 [153]"second round:"a2;p$(a2)x$b2;p$(b2)x$c2;p$(c2)x$d2;p$(d2):[137]640
  393. 3870 [153]"stopsorry, you made an entry mistake.":[153]"pokewe have to start over.
  394. 3880 printspc(22)"press <return>[151]":cr=1:nu=.:gosub550:return
  395. 3890 pokebv,12:ifa2=2ora2=4ora2=6thenpokevb,a2+3
  396. 3900 ifa2=3ora2=5thenpokevb,a2-1
  397. 3910 ifa2=1thenpokevb,6
  398. 3920 ifa2=7thenpokevb,0
  399. 3930 return
  400. 3940 pokev,14:pokevb,14
  401. 3950 print"[147]"chr$(142)"[153][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  402. 3960 forx=1to23:print"[221]"spc(38)"[221]";:next
  403. 3970 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  404. 3980 forx=217to242:pokex,peek(x)or128:next
  405. 3990 print"          loadstar presents:"
  406. 4000 print"                                 "
  407. 4010 print"          your color profile      "
  408. 4020 print"                                  "
  409. 4030 print"      by gerhard schilling, ph.d. "
  410. 4040 print"                                  "
  411. 4050 print"           (c)opyright 1988       "
  412. 4060 print"                                  "
  413. 4070 print"                                  "
  414. 4080 print"      based on dr. max luescher's"
  415. 4090 print" 'die farbwahl als psychosomatischer"
  416. 4100 print"  test.' dts.med.journal,12,406,1961"
  417. 4110 print"      press <return> to continue.":cr=1:gosub550:return
  418. 4120 print"[147]do you want another try? (y/n[151])":gosub550
  419. 4130 ifm$="y"orm$="[217]"thenrun
  420. 4140 print"[147] are you sure you want to quit? (y/n[151])":gosub550
  421. 4150 ifm$<>"y"andm$<>="[217]"thenrun
  422. 4160 forx=0to24:pokes,0:next:pokev,14:pokevb,14
  423. 4170 print"[147]returning to loadstar":clr
  424. 4180 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  425. 4190 ifer<>63thenend
  426. 4200 m9=1:load"magic iii",8,1
  427.